home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / euclidie.sha < prev    next >
Text File  |  1994-03-01  |  455b  |  12 lines
  1. 10 CLEAR :PRINT "DIVISION EUCLIDIENNE";CHR$(13);
  2. 20 INPUT "Deg N:",N,"Deg D:",D
  3. 30 DIM A(N),B(D)
  4. 40 FOR I=N TO 0 STEP-1:PRINT "N^";I;:INPUT ":",A(I):NEXT I
  5. 50 FOR I=D TO 0 STEP -1:PRINT "D^";I;:INPUT ":",B(I):NEXT I
  6. 60  FOR I=N-D TO 0 STEP-1:K=A(D+I)/B(D):PRINT K"x^"I"+";
  7. 70  FOR J=I TO D+I:A(J)=A(J)-K*B(J-I):NEXT J:NEXT I
  8. 80  PRINT " ":PRINT "RESTE:";:IF D<2 THEN 200
  9. 90  FOR I=D-1 TO 1 STEP -1
  10. 100 PRINT A(I)"x^"I"+";:NEXT I
  11. 110 PRINT A(0)
  12.